perm filename OO1.FAI[TMP,LCS]1 blob
sn#152192 filedate 1975-03-23 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00006 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 TITLE OO
C00003 00003 MVM: HRLI OU,400000(MA)
C00005 00004 BACK: HRRZI 6,-2(CX)
C00006 00005 FIXIT: SETZM OUTFLG
C00008 00006 GETO: MOVEM EN,TMP
C00010 ENDMK
C⊗;
TITLE OO
EXTERNAL JOBDDT,JOBOPC
EN←7 ↔ TS←10 ↔ OU←11
CX←13 ↔ MA←14 ↔ N←15
INT: RESET
OUTSTR CRLF
STAR: HRRZI N,MEM
CLRBFI
OUTSTR ASTR
INCHWL EN
CAIN EN,15
JRST STAR
CAIN EN,612
JRST DDTST
HRRZI TS,(N)
INLIN: HRRZM EN,(TS)
SETZM 1(TS)
ADDI TS,2
INCHRS EN
CAIA
JRST INLIN
SUBI TS,4
HRRZ EN,2(TS)
TRNN EN,600
JRST MAIN
SETOM OUTFLG
TRNE EN,400
SETOM RFLG
CAIE EN,301
JRST .+3
SETOM ADFLG
JRST .+4
CAIE EN,314
JRST MAIN+1
SETOM LITF
ADDI TS,2
OUTSTR CRLF
MAIN: OUTSTR SPACE
HRRZI MA,MEM
HRRZI CX,(N)
JRST BGIN
MVM: HRLI OU,400000(MA)
HRRZI 6,2
JRST LMVM
LAEQ: HRRZI 6,2
CAIE OU,(MA)
ADDI 6,2
SUBI 5,2
HLL OU,(5)
LMVM: MOVEM OU,(5)
SETZM 1(5)
ADDI 5,2
SUBI TS,(6)
ADDI 6,(5)
HRLZI 6,(6)
HRRI 6,(5)
BLT 6,(TS)
JRST LKMO
FDEQ: MOVE 4,(MA)
HRRZI 5,(N)
LKMO: CAMN 4,(5)
JRST EQU
ADIN: ADDI 5,2
CAIGE 5,(TS)
JRST LKMO
ADDI MA,2
BGIN: CAIGE MA,(N)
JRST FDEQ
HRRZI MA,(CX)
ADDI N,2
CAIGE N,(TS)
JRST FDEQ
JRST BACK
EQU: HRRZI OU,(MA)
CAILE TS,2(5)
CAIG N,2(MA)
JRST CKLA
MOVE 6,2(MA)
CAMN 6,2(5)
HRRI OU,2(MA)
CKLA: CAIGE 5,2(N)
JRST .+4
HRRZ 6,-2(5)
CAIN MA,2(6)
JRST LAEQ
CAIE OU,(MA)
JRST MVM
SKIPGE 1(5)
JRST ADIN
HRLI OU,400001(OU)
AOJ OU,
MOVEM OU,1(5)
CAIGE CX,-2(TS)
JRST ADIN
BACK: HRRZI 6,-2(CX)
ADDI 6,2
SKIPGE 1(6)
JRST NEGA+1
SKIPGE OU,(6)
AOBJN OU,NEGA
HRRZI OU,(6)
HRLI OU,400000(6)
NEGA: MOVEM OU,1(6)
CAIGE 6,-2(TS)
JRST BACK+1
CAIE TS,2(CX)
JRST NOT1
SUBI TS,2
MOVE EN,(TS)
SKIPL OUTFLG
JRST GETO
SUB OU,ONEB
CAME OU,(CX)
CAIN CX,(OU)
CAIA
AOBJN OU,FIXIT
HRRZI OU,1(CX)
HRLI OU,400000(OU)
JRST FIXIT-1
NOT1: HRRZI EN,-2(TS)
HRLI EN,400000(CX)
MOVE OU,EN
AOBJP OU,
SKIPL OUTFLG
JRST GETO
MOVEM EN,(TS)
MOVEM OU,1(TS)
HRRZI OU,1(TS)
HRLI OU,400000(OU)
SKIPL ADFLG
ADDI TS,2
FIXIT: SETZM OUTFLG
HRRZI 6,MEM
SKIPGE EN,TMP
HRRZI 6,(EN)
ADDI 6,2
CAIL 6,(CX)
JRST NSEEN
CAME EN,(6)
JRST .-4
SKIPGE ADFLG
JRST ADER
CKFLS: MOVEM OU,1(6)
SKIPGE RFLG
JRST RPLACE
SKIPL LITF
JRST GETO
SUB OU,ONEB
MOVEM OU,1(6)
SETZM LITF
JRST GETO
NSEEN: MOVEM EN,(TS)
HRRZI 6,(TS)
ADDI TS,2
JRST CKFLS
RPLACE: HRR OU,(OU)
TLZ OU,400000
TRO OU,400000
MOVEM OU,1(6)
SETZM RFLG
JRST GETO
ADER: MOVE 5,1(6)
MOVE 4,-1(5)
MOVEM 4,(TS)
MOVEM 5,1(TS)
MOVE 4,-1(OU)
MOVEM 4,2(TS)
MOVEM OU,3(TS)
HRRZI OU,2(TS)
HRLI OU,400000(TS)
MOVEM OU,4(TS)
AOBJP OU,
MOVEM OU,5(TS)
HRRZI OU,5(TS)
HRLI OU,400000(OU)
MOVEM OU,1(6)
ADDI TS,6
SETZM ADFLG
GETO: MOVEM EN,TMP
HRRM TS,STAR
HRRZI MA,(TS)
HRLI MA,700
ADDI TS,200
TLZN OU,400000
TRNN OU,400000
JRST GOUT
MOVE EN,OU
HRRZI 4,777775
JRST MKOUT
PUDO: HRLI OU,(4)
PUSH TS,OU
MOVE OU,EN
GOUT: HLRZ 4,OU
MOR: MOVE EN,(4)
TLZE EN,400000
JRST PUDO
TRNN EN,400000
JRST DPCH
MKOUT: HLRZ 6,EN
HRLI EN,(EN)
TRZ EN,400000
MOVEM EN,(6)
CAIA
DPCH: IDPB EN,MA
ADO: ADDI 4,2
CAIG 4,(OU)
JRST MOR
TLNN TS,777777
JRST TYOUT
POP TS,OU
HLRZ 4,OU
JRST ADO
TYOUT: HRRZI EN,15
IDPB EN,MA
HRRZI EN,12
IDPB EN,MA
SETZ EN,
IDPB EN,MA
SUBI TS,177
OUTSTR (TS)
JRST STAR
DDTST: SKIPN JOBDDT
JRST STAR
HRRZI OU,INT
MOVEM OU,JOBOPC
HRRZ OU,JOBDDT
JRST (OU)
CRLF: 64240,,
ASTR: 250000,,
SPACE: 200000,,
ONEB: 1,,1↔ TMP: 0
OUTFLG: 0 ↔ RFLG: 0
LITF: 0 ↔ ADFLG: 0
MEM: BLOCK 21000
END INT